home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / AboveBelow.dxr / Internal_6_waste cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.3 KB  |  82 lines
  1. property spriteNum, motion, undercard, location
  2. global waste, getlist, equal, currentsel, godlist, foundation, points, tableau
  3.  
  4. on beginSprite me
  5.   waste = new(script("card pile"))
  6.   undercard = sprite(11)
  7.   location = sprite(spriteNum).loc
  8. end
  9.  
  10. on mouseDown me
  11.   if waste.getcardcount() > 0 then
  12.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  13.     sprite(spriteNum).locZ = spriteNum + 1000
  14.     getlist = waste
  15.     if waste.getcardcount() > 1 then
  16.       undercard.member = member(waste.cards[waste.getcardcount() - 1].membername, "playing cards")
  17.     else
  18.       if waste.getcardcount() = 1 then
  19.         undercard.member = member("empty", "playing cards")
  20.       end if
  21.     end if
  22.     motion = timeout(string(spriteNum) && "motion").new(5, #moving, me)
  23.   end if
  24. end
  25.  
  26. on moving me
  27.   if the mouseDown then
  28.     sprite(spriteNum).loc = the mouseLoc
  29.   else
  30.     if the mouseUp then
  31.       sprite(spriteNum).locZ = spriteNum
  32.       motion.forget()
  33.       abort()
  34.     end if
  35.   end if
  36. end
  37.  
  38. on mouseUp me
  39.   if equal then
  40.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  41.     sprite(currentsel).member = member(sprite(spriteNum).member.name, "playing cards")
  42.     godlist.addCard(currentsel)
  43.     sprite(spriteNum).loc = location
  44.     waste.cards.deleteOne(waste.getlastcard())
  45.     if currentsel <> 38 then
  46.       if objectp(foundation[sprite(currentsel).row]) then
  47.         points = points + 10
  48.       end if
  49.       if objectp(tableau[sprite(currentsel).row]) then
  50.         repeat with i = 96 to 99
  51.           if tableau[sprite(i).row].getcardcount() = 0 then
  52.             next repeat
  53.           end if
  54.           sprite(i).loc = tableau[sprite(i).row].getlastcard().location
  55.         end repeat
  56.       end if
  57.     end if
  58.     if waste.getcardcount() > 0 then
  59.       sprite(spriteNum).member = member(waste.getlastcard().membername, "playing cards")
  60.     else
  61.       if waste.getcardcount() = 0 then
  62.         sprite(spriteNum).member = member("empty", "playing cards")
  63.         undercard.member = member("empty", "playing cards")
  64.       end if
  65.     end if
  66.     equal = 0
  67.     currentsel = 0
  68.     godlist = VOID
  69.     getlist = VOID
  70.     repeat with i = 29 to 36
  71.       sprite(i).golem()
  72.     end repeat
  73.     checkwin()
  74.   else
  75.     if not equal then
  76.       puppetSound(3, member("drop card", "100GPak Generic SFX"))
  77.       getlist = VOID
  78.       sprite(spriteNum).loc = location
  79.     end if
  80.   end if
  81. end
  82.